home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 26 / Cream of the Crop 26.iso / program / ddj0897.zip / DYN401.ZIP / class / number.c < prev    next >
C/C++ Source or Header  |  1997-04-16  |  5KB  |  272 lines
  1.  
  2.  
  3. /*  Copyright (c) 1993-1996 Algorithms Corporation  */
  4. /*  All rights reserved.  */
  5.  
  6.  
  7.  
  8.  
  9. /*  This file automatically generated by dpp - do not edit  */
  10.  
  11. #define    DPP_STRATEGY    2
  12. #define    DPP_FASTWIDE    0
  13.  
  14.  
  15.  
  16. #line 15 "number.d"
  17. #include <math.h> 
  18.  
  19. #define    CLASS    Number_c
  20. #define    ivType    Number_iv_t
  21.  
  22. #include "generics.h"
  23.  
  24. object    Number_c;
  25.  
  26.  
  27. #line 22 "number.d"
  28. static double Round(double n, int p) 
  29. { 
  30.     double r; 
  31.  
  32.     r = pow(10.0, (double) p); 
  33.     r = floor(.5 + fabs(n * r)) / r; 
  34.     if (n < 0.0) return(-r); 
  35.     return(r); 
  36. } 
  37.  
  38. static int Ndrgtb(double n, int b) 
  39. { 
  40.     double base = b; 
  41.     int i; 
  42.  
  43.     n = n < 0.0 ? -n : n; 
  44.     i = 0; 
  45.     while (i < 20) { 
  46.         n -= floor(n); 
  47.         if (1E-12 >= n) break; 
  48.         i++; 
  49.         n = Round(n*base, 13); 
  50.     } 
  51.     return(i); 
  52. } 
  53.  
  54. #line 75 "number.d"
  55. static char *Nfmtb(double n, int b, char *t, int wth, int d, char *s) 
  56. { 
  57.     register int si, i; 
  58.     int sign, blnk, comma, left, paren, zfill, nd, dol, tw, dl, ez, ucase, cf=3, w=wth; 
  59.     double base; 
  60.     static char alpha[] = "0123456789abcdefghijklmnopqrstuvwxyz"; 
  61.  
  62.     if (b < 2 || b > (int)(sizeof(alpha)-1)) 
  63.         b = 10; 
  64.     base = b; 
  65.     if (sign = n < 0.0) 
  66.         n = -n; 
  67.  
  68.  
  69.     if (d >= 0) { 
  70.         double r = pow(base, (double) d); 
  71.         n = floor(base/20.0 + n * r) / r; 
  72.     } 
  73.  
  74.     switch (b) { 
  75.         case 10: 
  76.         cf = 3; 
  77.         dl = n < 1.0 ? 0 : 1 + (int) log10(n); 
  78.         break; 
  79.         case 2: 
  80.         cf = 4; 
  81.         dl = n < 1.0 ? 0 : 1 + (int) (log(n)/.6931471806); 
  82.         break; 
  83.         case 8: 
  84.         cf = 3; 
  85.         dl = n < 1.0 ? 0 : 1 + (int) (log(n)/2.079441542); 
  86.         break; 
  87.         case 16: 
  88.         cf = 4; 
  89.         dl = n < 1.0 ? 0 : 1 + (int) (log(n)/2.772588722); 
  90.         break; 
  91.         default: 
  92.         cf = 3; 
  93.         dl = n < 1.0 ? 0 : 1 + (int) (log(n)/log(base)); 
  94.         break; 
  95.     } 
  96.     if (d < 0) 
  97.         d = Ndrgtb(n, b); 
  98.     blnk = comma = left = paren = zfill = dol = ucase = 0; 
  99.     if (t) 
  100.         while (*t) 
  101.         switch (*t++) { 
  102.         case 'B': blnk = 1; break; 
  103.         case 'C': comma = (dl - 1) / cf; break; 
  104.         case 'L': left = 1; break; 
  105.         case 'P': paren = 1; break; 
  106.         case 'Z': zfill = 1; break; 
  107.         case 'D': dol = 1; break; 
  108.         case 'U': ucase = 1; break; 
  109.     } 
  110.  
  111.  
  112.  
  113.     ez = n < 1.0; 
  114.     tw = dol + paren + comma + sign + dl + d + !!d + ez; 
  115.  
  116.     if (w < 1) 
  117.         w = tw; 
  118.     else if (tw > w) { 
  119.         if (ez) 
  120.             tw -= ez--; 
  121.         if ((i=dol) && tw > w) 
  122.             tw -= dol--; 
  123.         if (tw > w && comma) { 
  124.             tw -= comma; 
  125.             comma = 0; 
  126.         } 
  127.         if (tw < w && i) { 
  128.             tw++; 
  129.             dol = 1; 
  130.         } 
  131.         if (tw > w && paren) 
  132.             tw -= paren--; 
  133.         if (tw > w) { 
  134.             nofit: 
  135.             for (i=0 ; i < w ; ) 
  136.                 s[i++] = '*'; 
  137.             s[i] = '\0'; 
  138.             return(s); 
  139.         } 
  140.     } 
  141.  
  142.     n = floor(.5 + n * floor(.5 + pow(base, (double) d))); 
  143.     if (blnk && n == 0.0) { 
  144.         for (i=0 ; i < wth ; ) 
  145.             s[i++] = ' '; 
  146.         s[wth] = '\0'; 
  147.         return(s); 
  148.     } 
  149.     s[si = w] = '\0'; 
  150.     if (left && w > tw) { 
  151.         i = w - tw; 
  152.         while (i--) 
  153.             s[--si] = ' '; 
  154.     } 
  155.     if (paren) 
  156.         s[--si] = sign ? ')' : ' '; 
  157.     for (nd=0 ; nd < d && si ; nd++) { 
  158.         n /= base; 
  159.         i = (int) floor(base * (n - floor(n)) + .5); 
  160.         n = floor(n); 
  161.         s[--si] = ucase && i > 9 ? alpha[i]+('A'-'a') : alpha[i]; 
  162.     } 
  163.     if (d) 
  164.         if (si) 
  165.         s[--si] = '.'; 
  166.     else 
  167.         n = 1.0; 
  168.     if (ez && si > sign + dol) 
  169.         s[--si] = '0'; 
  170.     nd = 0; 
  171.     while (n > 0.0 && si) 
  172.         if (comma && nd == cf) { 
  173.         s[--si] = ','; 
  174.         nd = 0; 
  175.     } else { 
  176.         n /= base; 
  177.         i = (int) floor(base * (n - floor(n)) + .5); 
  178.         n = floor(n); 
  179.         s[--si] = ucase && i > 9 ? alpha[i]+('A'-'a') : alpha[i]; 
  180.         nd++; 
  181.     } 
  182.     if (zfill) { 
  183.         i = sign + dol; 
  184.         while (si > i) 
  185.             s[--si] = '0'; 
  186.     } 
  187.     if (sign) 
  188.         if (si) 
  189.         s[--si] = paren ? '(' : '-'; 
  190.     else 
  191.         n = 1.0; 
  192.     if (dol && si) 
  193.         s[--si] = '$'; 
  194.     while (si) 
  195.         s[--si] = ' '; 
  196.     if (n != 0.0) 
  197.         goto nofit; 
  198.     return(s); 
  199. } 
  200.  
  201. imeth objrtn Number_im_gFormatNumber(object self, char *msk, int wth, int dp)
  202. { 
  203.     char buf[80]; 
  204.  
  205.     Nfmtb(gDoubleValue(self), 10, msk, wth, dp, buf); 
  206.     return gNewWithStr(String, buf); 
  207. } 
  208.  
  209. #if 0 
  210.  
  211.  
  212. { 
  213.     double t; 
  214.  
  215.     t = .6125423371 * gDoubleValue(self); 
  216.     t = t < 0.0 ? -t : t; 
  217.     return (int) (BIG_INT * (t - floor(t))); 
  218. } 
  219.  
  220. #endif 
  221.  
  222. imeth int Number_im_gCompare(object self, object obj)
  223. { 
  224.     double sv, ov; 
  225.  
  226.     ChkArg(obj, 2); 
  227.     if (!gIsKindOf(obj, Number)) 
  228.         return oSuper(Number_c, gCompare, self)(self, obj); 
  229.     if ((sv=gDoubleValue(self)) < (ov=gDoubleValue(obj))) 
  230.         return -1; 
  231.     else if (sv == ov) 
  232.         return 0; 
  233.     else 
  234.         return 1; 
  235. } 
  236.  
  237.  
  238. #line 239 "number.c"
  239.  
  240. objrtn    Number_initialize(void)
  241. {
  242.     static  CRITICALSECTION  cs;
  243.     static  int volatile once = 0;
  244.  
  245.     ENTERCRITICALSECTION(_CI_CS_);
  246.     if (!once) {
  247.         INITIALIZECRITICALSECTION(cs);
  248.         once = 1;
  249.     }
  250.     LEAVECRITICALSECTION(_CI_CS_);
  251.  
  252.     ENTERCRITICALSECTION(cs);
  253.  
  254.     if (Number_c) {
  255.         LEAVECRITICALSECTION(cs);
  256.         return Number_c;
  257.     }
  258.     INHIBIT_THREADER;
  259.     Number_c = gNewClass(Class, "Number", 0, 0, END);
  260.     iMethodFor(Number, gCompare, Number_im_gCompare);
  261.     iMethodFor(Number, gFormatNumber, Number_im_gFormatNumber);
  262.  
  263.     ENABLE_THREADER;
  264.  
  265.     LEAVECRITICALSECTION(cs);
  266.  
  267.     return Number_c;
  268. }
  269.  
  270.  
  271.  
  272.